home *** CD-ROM | disk | FTP | other *** search
/ Word Play Farm / Word Play Farm.iso / pc / movies / shared.dxr / 00513_Wordlist Handlers.ls < prev    next >
Encoding:
Text File  |  1996-07-29  |  2.3 KB  |  93 lines
  1. on UserSelect pLabelName, psHome
  2.   global gsLastLabel
  3.   if pLabelName = gsLastLabel then
  4.     killSprites()
  5.     if voidp(psHome) then
  6.       set psHome to "HOME"
  7.     end if
  8.     go(psHome)
  9.     set gsLastLabel to EMPTY
  10.   else
  11.     set gsLastLabel to pLabelName
  12.     killSprites()
  13.     go(pLabelName)
  14.   end if
  15. end
  16.  
  17. on ListRollEffect psSpriteNums
  18.   global gRollClr, gHiLiSize
  19.   set foo to CheckRoll(psSpriteNums)
  20.   HiliteGraphic(foo, gRollClr, gHiLiSize)
  21. end
  22.  
  23. on GetWord
  24.   global wordlist, gHiLiClr, gHiLiSize, gHitBoxStart, gFlashTime
  25.   set liSpriteNum to the clickOn
  26.   FlashGraphic(liSpriteNum, gHiLiClr, gHiLiSize)
  27.   set liWordNum to liSpriteNum - gHitBoxStart + 1
  28.   set WordSelect to word liWordNum of field wordlist
  29.   CheckWord(WordSelect)
  30. end
  31.  
  32. on CheckWord pWordSelect
  33.   global targetWord, gLow, SFormat, gLetterBoxes, gInTypeWord
  34.   if pWordSelect = "Satellite" then
  35.     set lWordAudio to makefilename("Satelli2", SFormat)
  36.   else
  37.     set lWordAudio to makefilename(pWordSelect, SFormat)
  38.   end if
  39.   if pWordSelect = targetWord then
  40.     TypeWord(pWordSelect, gLetterBoxes)
  41.     PlayAudio(lWordAudio)
  42.     holdSound()
  43.     set lFeedback to MakeList("Right", SFormat, 11)
  44.     preLoad(lFeedback)
  45.     RandomSound(lFeedback)
  46.     ClueDone()
  47.   else
  48.     if gInTypeWord <> 1 then
  49.       PlayAudio(lWordAudio)
  50.       holdSound()
  51.     end if
  52.     RandomSound(MakeList("Wrong", SFormat, 10))
  53.     set gPlayReward to 0
  54.   end if
  55. end
  56.  
  57. on InputSelect psKey
  58.   global gSelectWord, targetWord, gLetterBoxes
  59.   set lsTempStr to HandleKey(psKey, gSelectWord)
  60.   if lsTempStr = gSelectWord then
  61.     beep(1)
  62.     exit
  63.   end if
  64.   set gSelectWord to lsTempStr
  65.   set liTrgLen to length(targetWord)
  66.   set liSelLen to length(gSelectWord)
  67.   put liSelLen & " vs " & liTrgLen
  68.   if liSelLen <= liTrgLen then
  69.     TypeWord(gSelectWord, gLetterBoxes, liTrgLen)
  70.     if liSelLen = liTrgLen then
  71.       CheckWord(gSelectWord)
  72.     end if
  73.   else
  74.     set gSelectWord to chars(gSelectWord, 1, liTrgLen)
  75.   end if
  76. end
  77.  
  78. on DisplayWord
  79.   global targetWord, gSelectWord, gLetterBoxes
  80.   set liTrgLen to length(targetWord)
  81.   set liSelLen to length(gSelectWord)
  82.   TypeWord(gSelectWord, gLetterBoxes, liTrgLen)
  83. end
  84.  
  85. on ClueDone
  86.   global activeword, gSectData, gPlayReward, gSelectWord
  87.   put 1 into item activeword of gSectData
  88.   UpdateGame()
  89.   set gPlayReward to CheckReward(gSectData)
  90.   MoviePlay(1)
  91.   resetPuzzle()
  92. end
  93.